﻿Public Class BEcriterioProtocolo

#Region "Declaración de variables"

    Private codCriterio As Integer
    Private codTipoCriterio As Integer
    Private codProtocolo As Integer
    Private valorMax As Integer
    Private valorMin As Integer

#End Region

    Sub New()
    End Sub

    Sub New(ByVal pCodCriterio As Object, _
            ByVal pCodTipoCriterio As Object, _
            ByVal pCodProtocolo As Object, _
            ByVal pValorMax As Object, _
            ByVal pValorMin As Object)

        Me._codCriterio = pCodCriterio
        Me._codTipoCriterio = pCodTipoCriterio
        Me._codProtocolo = pCodProtocolo
        Me._valorMax = pValorMax
        Me._valorMin = pValorMin

    End Sub

    Public Property _codCriterio() As Integer
        Get
            Return Me.codCriterio
        End Get
        Set(ByVal value As Integer)
            Me.codCriterio = value
        End Set
    End Property

    Public Property _codTipoCriterio() As Integer
        Get
            Return Me.codTipoCriterio
        End Get
        Set(ByVal value As Integer)
            Me.codTipoCriterio = value
        End Set
    End Property

    Public Property _codProtocolo() As Integer
        Get
            Return Me.codProtocolo
        End Get
        Set(ByVal value As Integer)
            Me.codProtocolo = value
        End Set
    End Property

    Public Property _valorMax() As Integer
        Get
            Return Me.valorMax
        End Get
        Set(ByVal value As Integer)
            Me.valorMax = value
        End Set
    End Property

    Public Property _valorMin() As Integer
        Get
            Return Me.valorMin
        End Get
        Set(ByVal value As Integer)
            Me.valorMin = value
        End Set
    End Property

End Class
